home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K CMD UNC Check1.xpl < prev    next >
Text File  |  2003-12-24  |  2KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\System\Command Prompt"
  5. "UIPATH 2"="Program Options\Built in Windows Apps\Command Prompt"
  6. "NAME"="CMD UNC Path Check"
  7. "OSVERSION"="0001011"
  8. "VERSION"="1.00"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Allow UNC paths in a command box"
  11. "DESCRIPTION 1"="By default, a command box (cmd.exe) will check if the current directory is an UNC path (\\myserver\path) and if this is the case, it will write an error message and change to path to C:\. "
  12. "DESCRIPTION 2"="Thus, it is not possible to use UNC paths in a command box which can be very annoying. "
  13. "DESCRIPTION 3"="When this option is turned on, you can use UNC paths as the current directory and you will also no longer get an error message when the command box starts from an UNC path."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sP1="HKLM\SOFTWARE\Microsoft\Command Processor\"
  21. sV1="DisableUNCCheck"
  22.  
  23. 'Called when the Plugin is started
  24. Sub Plugin_Initialize
  25.  s=RegReadValue(sP1 & sV1)
  26.  SetUIElement 1,s
  27. End Sub
  28.  
  29. 'Called when the Plugin should validate the Data the user has entered
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. 'Called when the Plugin should apply the changes
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  i=GetUIElement(1)
  36.  if i=true then
  37.     Call RegWriteValue(sP1 & sV1,1,2)
  38.  else
  39.     if RegValueExists(sP1 & sV1) then
  40.        Call RegDeleteValue(sP1 & sV1)
  41.     end if
  42.  end if 
  43.  
  44.  Call Restart()
  45. End Sub
  46.  
  47. 'Called when the Plugin is about to be removed from memory
  48. Sub Plugin_Terminate
  49. End Sub
  50.